home *** CD-ROM | disk | FTP | other *** search
/ Aminet 52 / Aminet 52 (2002)(GTI - Schatztruhe)[!][Dec 2002].iso / Aminet / biz / dbase / STEP_Txt.lha / STEP_Txt / Install next >
Text File  |  2001-01-29  |  870b  |  55 lines
  1. ; Installer Script For STEP.Text
  2.  
  3. (set #StarBase_dir (cat "Select Your StarBase_SCR Main Directory\n"
  4.                         "** A Drawer Will NOT Be Created **"))
  5.  
  6. (set #done (cat "\nSTEP.Text Has Been Installed\n\n"))
  7.  
  8. (complete 0)
  9.  
  10. (set StarBase_def_dir "Work:StarBase")
  11.  
  12. (set StarBase_dir
  13.  (askdir
  14.   (default StarBase_def_dir)
  15.   (prompt #StarBase_dir)
  16.   (help @askdir-help)
  17.  )
  18. )
  19.  
  20. (complete 10)
  21.  
  22. (set Data_dir (tackon StarBase_dir "Data"))
  23.  
  24. (complete 20)
  25.  
  26. (copyfiles
  27.  (
  28.   (prompt "Install STEP.Text File")
  29.   (source "Data")
  30.   (help @copyfiles-help)
  31.   (dest Data_dir)
  32.   (choices "STEP.Text")
  33.   (confirm)
  34.  )
  35. )
  36.  
  37. (complete 90)
  38.  
  39. (copyfiles
  40.  (
  41.   (prompt "Install Run_STEP File")
  42.   (source "Data")
  43.   (help @copyfiles-help)
  44.   (dest StarBase_dir)
  45.   (choices "Run_STEP" "Run_STEP.info")
  46.   (confirm)
  47.  )
  48. )
  49.  
  50. (complete 100)
  51.  
  52. (message #done "\"" StarBase_dir "\"")
  53.  
  54. (exit (QUIET))
  55.